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MODULE PASSFIND2 ( &TITLE EAM? procedure’ 
NT = '1=002' 
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BEGIN 


SPSS ESELECS SET EE ESET ESTEE TEESE TCT T ET PPT CCPC CCST CCE CCPC EP ET TET ETE EEE T TT TEE | 
' 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY | ORDANCE WITH THE TERMS OF SUCH atte AND ep AL 


ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'® TRANSFERRED. 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
is eepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


is DIGITAL ASSUMES NO RESPONSIBI 
tt SOFTWARE ON EQUIPMENT WHICH I 


E 
T 
LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


See ERATE AEA AERA 
' 


++ 


FACILITY: 
ABSTRACT: 


Pascal Language Support 


This module contains PASSFIND2, which implements the 


i] 
i 
it } VAX-11 Pascal FIND procedure. 
One ENVIRONMENT: User mode - AST reentrant 
004 AUTHOR: Steven B. Lionel, CREATION DATE: 16-December-1981 
004 MODIFIED BY: 
0044 1 | 1-001 - Original. SBL 16-December-1981 
0045 ' 1-002 - Store record Length in length word for FILE OF VARYING. 
Bes SBL 20-0ct-1982 
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D 10 
PASSFIND2 rocedure 16-Sep-1984 01:34: AX-11 Bliss-32 V4.0-74 Page 3 
002 FIND2 = FIND procedure 127808-1 382 03:34:38 PASRTL.SRCIPASF IND -B32;1 . (3) 
1 1 ZSBITL "PASSFIND2 = FIND procedure’ 
¢ GLOBAL ROUTINE PASSFIND2 ( ! Do a FIND 
PFV: REF SPASSPFV ANS SS att4: ° ' File variable 
4 COMPONENT : REF VECTOR™C, LONG], ' Component number 
85 ERROR ! Unwind address if error 
86 ): NOVALUE = 
87 
88 ++ 
34 FUNCTIONAL DESCRIPTION: 
91 PASSFIND2 implements the VAX-11 Pascal FIND procedure. It 
9 finds the specified file component and places its contents in 
Pt, the file buffer. 
GS ' CALLING SEQUENCE: 


CALL PASSFIND2 (PFV.mr.r, COMPONENT. rlu.r C, ERROR.j.rJ) 
FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference. 
The structure of the PFV is defined in PASPFV.REQ. 

COMPONENT - The number of the file component to read. 

ERROR - Optional. If specified, the address to unwind to 
if an error occurs. 


' 
' 
' 
i 
i 
i 
' 
i 
‘ 
i IMPLICIT INPUTS: 

NONE | 
i IMPLICIT OUTPUTS: | 
NONE 

| ROUTINE VALUE: 
: NONE 
i SIDE EFFECTS: 
Places file in Inspection mode 
i SIGNALLED ERRORS: 


FILNOTOPE - File not open 


File not opened for direct access 
Failed to GET locked record 
Error during FIND or FINDK 
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BEGIN 
LOCAL 
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NOW 


rocedure 16-Sep-1984 9}: 34:36 AX-11 BL 


- FIND procedure 14-Sep-19 
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se V 
4 PASRTL.SRCJPASFI 
r) 


FCB: REF SPASS$FCB_CONTROL_BLOCK, ' File control block 
GET_STATUS, Status from $GET 
PFV_ADDR: VOLATILE, Enable argument 
UNWIND_ACT: VOLATILE, Unwind action 


ERROR_ADDR: VOLATILE; ! Enable argument 
BIND 

RAB = FCB: REF BLOCK C, BYTE); ! RMS RAB 
BUILTIN 

ACTUALCOUNT; 
ENAB 


LE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 

4 - aaa () GEQU 3 

ERROR_ADDR = .ERROR; ! Set unwind address 


+ 
Set PFV address enable argument. 


PFV_ADDR = PFV CPFVS$R_PFVI; 

validate and lock PFV 

PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
"set unwind action to unlock file. 
UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 

open file if it should be implicitly opened 


IF NOT .PFV CPFVSV_VALID} 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCB]; FCB); 


'¢ 
Verify that the file is open. 


fF NOT .PFV CPFVSV_OPENI 
SPAS$IO_ERROR (PASS$_FILNOTOPE,0); 


'¢ 
Verify that the file is opened for direct access 
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p=198¢ 12:31:25 EPASRTL SRE SPASFINDS.B59; 1 Seat 


ocedure 


PASSF IND2 D 1 
008 so D2 - FIND procedure 1 


zy 


FCB CFCBSL-COMPONENT) = .COMPONENT (0); i Set component number 
GET_STATUS~= SPASSRMS_OP ($GET (RAB = RAB [0,0,0,0])); 


'¢ 


! If varying, put component Length in first word of user buffer. 
Do this before we check for errors! 


F 
P 
95 IF NOT .FCB CFCBSV_DIRECT) 
37 SPASSIO_ERROR (PAS$_FILNOTDIR,O); 
99 0 + 
BY 8 Assume that file buffer will be defined 
0 0 
88 8 PFV CPFVS$V_DFB) = 1; 
04 
05 4 
08 Get the record. 
§ RAB enn = RABSC_KEY; ! Set “‘keyed’’ (direct) access 
3 RAB CRABSV_NLK] = 0; ' Turn off ‘'no Lock’’ bit 
0 


IF FCB CFCBSV_VARYING] 
(.PFV CPFVSA_BUFFER])<0,16,0> = .RAB CRABSW_RSZJ; 


'¢ 
Check for errors. 


IF NOT .GET_STATUS 
THEN 
BEGIN 
i $GET failed. Determine if the error was “component not found" 


‘ or another error. No error is signalled if component not found, 
but buffer is undefined. 


WWW WIAD RO MONINONOPONONIND SS SS OOO 


PFV CPFV$V_DFB) = ! Undefine file buffer 


Ww 


0; H 
If GET_STATUS EQL RMS$_RLK 
SPAS$IO_ERROR (PAS$_FAIGETLOC) ' Failed to GET locked record 
it 34 IF (.GET_STATUS NEGU RMS$_EOF) AND (.GET_STATUS NEQU RMS$_RNF ) 
— SPASSIO_ERROR (PAS$_ERRDURF IN); ! Error during FIND 


'¢ 

! Set Inspection mode 

! Indicate not at EOF 

' Cancel previous LOCATE : 

! Indicate successful completion 
Unlock the file 
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08 
04 
08 
OA 
02 
1€ 
06 
d8 


pages nee FIND procedure 

1-002 PASSFIND2 = FIND procedure 
3 ¢ 0313 

; 0314 FCB CFCBS$V_IN 
: 2 8 15 FCB LFCB$V_GE 
3; £ 1 FCB LFCB$V_EO 
: 56 1 FCB LFCB$V_LO 
3 57 18 FCB CFCBS$L_ST 
: rh 8 8 PFV CPFV$V_LO 
; 260 0381 RETURN; 

3 $0) 03 § 

; 262 0325 +1 END; 


000000006 


04 
00C2 


oc 
04 


000000006 


04 


02 
000000006 


006 
FC 


006 


18- -Sep-1984 01: 34:36 


14-Sep-1984 


FC 00000 
5 00002 
C2 00009 
D4 0000C 
7C OOOOE 
DE 00011 
91 00016 
1F 00019 
DO 0001B 
DO OOO1F 
dO 00023 
16 00027 
dO Ht 
| 0031 
E8 00035 
16 00039 
EO 0005F 
ps 4k 
A 0004 
11 00049 
43 00048 
EO 0004F 
D4 Bee 
9a 0005 
FB 4H 
4 0005C 
8 00050 
0 00061 
8A 00065 
DO 00069 
DD O006E 


1$: 


23: 


! End of 


2:51 


AX-11 Bliss-32 V4. 


PASRTL.SRCJPASF IND "833; 1 


routine PAS$F IND2 
PASSFIND2 FIND procedure 
\1-002\ 


PASSF IND2 PaS$$10 _HANDLER 
PASSSVALIDATE P 
PASSSOPEN. I MeCICIT 
PASSS$ OT ENAL PASSK_F ILNOTOPE 
PASS Ae NOTD 

$GET PASSE FAIGETLOC 
isse _ERRDURF IR 


_PASSCODE,NOWRT, SHR, PIC,2 


PASSFIND2, Save R2,R3,R4,R5,R6,R7 
PASSSSIGNAL , R5 


SP 
ERROR ADDR 
UN ING ACT 
12$ re 
(APS, #8 
ERROR, ERROR_ADDR 


Vv, 
R6, ADDR 
PASSSVACIDATE Pr 


#1, UNWIND_A 
4(R6), R4 

2(R4). 2$ 
PASSSOPEN_IMPLICIT 
#29, (R4)7 3$ 


-(SP) 
#PASSK_FILNOTOPE. -(SP) 
> bab) | 
(RSS. 
pp Ac ok FILNOTDIR, -(SP) 


#2, PASSSSIGNAL 


'] (R4) 
a f0 Es ts 
(FCB) 
4g AOE ~40(F CB) 
FCB 


Page 
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PASSF IND2 FIND procedure 16-Sep-1984 01:34: AX-11 Bliss-32 vV4.0-74 
1-002 PASSFIND2 = FIND procedure 1o-808-13be 03:34:36 PASRTL.SRCJPASF IND B35:1 
000000006 00 1 FB 0007 CALLS #1, SYS$GET 
OD 3 EB ifay BLBS  $$STATUS, 7$ 
0001825A &F 30 D| O07, CHPL S$STATUS., #98906 
£2 03 AB 8 0083 BLBS § 3(R3), 6$ 
: 50 DO 00087 7$ MOVL  $$STATUS, GET_STATUS 
05 FBO 0¢ E1 OOOBA BBC #2, -B(FCB), 8S 
00 86 22 a? BO OO8F MOVW  34(FCB), a0(R6) 
2D 5 8 0094 8$ BLBS GET_sTAfus, 11$ 
02 AG p A 00097 BICB2 #2,72(R4) 
000182AA BF D1 0098 CMPL get _STATus, #98986 
06 12 OA BNEG $ 
7E 006 8F 9A O00A4 MOVZBL M#PASSK_FAIGETLOC, -(SP) 
16 11 OO0A8 BRB 
0001827A_ BF 52 D1 OOOAA 9S: CMPL  GET_STATUS, #98938 
11 13 00081 BEQL 118 
00018282 = 8F 52 01 00085 CMPL  GET_STATUS, #98994 
08 13 OOOBA BEQL =-«*11$ 
7E 006 ef 9A 000BC MOVZBL M#PASSK_ERRDURFIN, -(SP) 
65 1 FB peace 10$: CALLS #1, PASSSSIGNAL 
04 000¢ RET 
01 Ad 08 88 000C4 11$: BISB Hi: 1(R3) 
01 =A3 0130 8F AA 00068 BICWw2 #304, 1(R3) 
4 A? D4 OOOCE CLRL. 0-44 0F 
03 A 80 8F 8A 000D1 BICB2 #128, 3(R4) 
04 00006 RET 
0000 00007 12$: «WORD Save nothing 
50 08 aC DO 00009 MOVL  8(AP), RO 
50 04 Aad D0 000DD “LE  4(RO). RO 
F4 AO 9F OO0E1 FUSHAB ERROR ADDR 
F8 AO 9F OOODES PUSHAB UNWIND ACT 
FC AO 9F OO0E7 PUSHAB PFV_ADBR 
03 DD OOOEA PUSHL #3 
5E DD OO0EC PUSHL SP 
7E 04 AC 7D OOOEE MOVO 4(AP), -(SP) 
000000006 00 03 FB 000F2 CALLS #3, PASS$$IO_HANDLER 
04 000F9 RET 


; Routine Size: 250 bytes, Routine Base: _PASSCODE + 0000 


: 263 0324 
264 0325 


1 
1 !<BLF/PAGE> 


10 

PASSF IND2 FIND procedure 1b-Sep-1 9 4: AX-11 Bliss-32 V4.0-74 Page 
800 PASSFIND - FIND procedure 1a-8ep- 198 93; 3 38 PASRTL.SRCJPASF IND 83551 . 
H 0 1 END ! End of module PAS$FIND2 
i BY 
; 268 0328 0 ELUDOM 
s PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 250 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Se eed re Symbols ---<----- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 12 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJIJPASLIB.L32;1 427 94 22 33 00:00.4 
$ COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASF IND2/O0BJ=OBJ$:PASFIND2 MSRC$:PASF IND2/UPDATE=(ENH$:PASF IND2) 
; Size: 250 code + 0 data bytes 

00:07.5 


; Run Time :07. 
; lhe y tes: 00:21.2 
3; Lines/CPU Min: ¢6 4 

3 yocenee/LPy-fite: 15832 

3 poet A, Used: 110 pages 
; Compilation Complete 
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